home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / graphics / sviewiv / arexx-scripts / setsvdriver.rx < prev    next >
Text File  |  1999-11-30  |  956b  |  54 lines
  1. /*
  2.    $VER: SetDriver.rx V9.00 (15.8.99)
  3.    © 1993-99 by Andreas R. Kleinert
  4.  
  5.    This script demonstrates how to modify the global SVDriver preferences
  6.    by using SViewIV's ARexxPort.
  7.  
  8.    The resulting changes will also appear on SViewIV's GUI,
  9.    if already open.
  10.  
  11. */
  12.  
  13. address command
  14.  
  15. SViewIV "-INSTALL_APPMENU=FALSE -INSTALL_APPICON=FALSE"
  16.  
  17. say ""
  18. say "ARexx: SViewIV has been started : Waiting a moment..."
  19.  
  20. wait 5
  21.  
  22. OPTIONS RESULTS
  23. SIGNAL ON ERROR
  24. SVIIPORT = 'SViewII.rx'
  25. SVNGPORT = 'SViewNG.rx'
  26. SVPORT   = 'SuperView.rx'
  27.  
  28. IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
  29. IF ~SHOW('P',SVPORT) THEN SVPORT = SVIIPORT
  30. IF ~SHOW('P',SVPORT) THEN DO
  31.   say "Could not locate ARexx port of SViewII !"
  32.   CALL ErrorOut 0
  33. END
  34.  
  35. ADDRESS VALUE SVPORT
  36.  
  37. 'SVDRIVER=ECS ScreenDriver'
  38.  
  39. address command wait 5
  40.  
  41. 'SVDRIVER=AGA ScreenDriver'
  42.  
  43. CALL ErrorOut 0
  44.  
  45.  
  46. /* Errorout procedure ----------------------- */
  47.  
  48. ErrorOut:
  49.         PARSE ARG ExitCode
  50.  
  51.         EXIT ExitCode
  52.  
  53.   END
  54.